home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 16 Vendor Support / CHNHDR.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  36 lines
  1. 10 POKE55,.:POKE56,160
  2. 15 CLR:Q$=CHR$(34):SYS58648:PRINT
  3. 20 PRINT"ENTER DISK DRIVE DEVICE NUMBER."
  4. 25 PRINT"(ENTER 0 TO EXIT.)"
  5. 30 PRINT:PRINT"  8[145]":INPUTD:IFD=.THEN800
  6. 35 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO20
  7. 40 POKE2,36:POKE184,8:POKE185,.:POKE186,D
  8. 45 POKE183,1:POKE187,2:POKE188,.:SYS65472
  9. 50 CLOSE8:IFPEEK(783)AND1THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO20
  10. 55 OPEN15,D,15:PRINT"[147]";
  11. 60 PRINT"[197][206][212][197][210] [198][201][204][197][206][193][205][197] [207][198] [200][197][193][196][197][210] [198][201][204][197]."
  12. 65 PRINT"[208][210][197][211][211] [210][197][212][213][210][206] [201][198] [198][201][204][197][206][193][205][197] [201][211] ";Q$;"[200][197][193][196][197][210]";Q$;"."
  13. 70 F$="HEADER":INPUTF$:OPEN8,D,8,F$:GOSUB900
  14. 75 IFATHENCLOSE8:CLOSE15:PRINT"[142]":GOTO20
  15. 80 PRINT"[207]NE MOMENT PLEASE...":SYS3181
  16. 85 PRINT"[147][197][206][212][197][210] [212][197][216][212] [198][207][210] [205][207][214][201][206][199] [205][197][211][211][193][199][197] ([205][193][216][201][205][213][205]"
  17. 90 PRINT"[207][198] 79 [195][200][193][210][193][195][212][197][210][211]).  [208][210][197][211][211] [198]1 [215][200][197][206] [196][207][206][197]."
  18. 95 PRINT"****************************************";
  19. 100 SYS3225
  20. 105 PRINT"[147][197][206][212][197][210] [211][212][193][212][201][207][206][193][210][217] [212][197][216][212] [201][206][212][207] [211][208][193][195][197] [194][197][204][207][215],"
  21. 110 PRINT"[193][206][196] [208][210][197][211][211] [198]1 [215][200][197][206] [196][207][206][197]."
  22. 115 PRINT"****************************************"
  23. 120 PRINT"****************************************[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]";
  24. 125 SYS3313:PRINT"[147]";
  25. 130 PRINT"[197][206][212][197][210] [198][201][204][197][206][193][205][197] [207][198] [206][197][215] [200][197][193][196][197][210] [198][201][204][197]."
  26. 135 PRINT"([208][210][197][211][211] [210][197][212][213][210][206] [212][207] [193][194][207][210][212].)"
  27. 140 INPUTG$:IFG$=""THEN800
  28. 145 OPEN8,D,1,G$:GOSUB900
  29. 150 IFATHENCLOSE8:GOTO130
  30. 155 PRINT"[207]NE MOMENT PLEASE...":SYS3385
  31. 160 CLOSE15:GOTO15
  32. 800 CLOSE8:CLOSE15:PRINT"[142]":END
  33. 900 INPUT#15,A,B$,C,Z
  34. 910 IFA<20THENA=.:RETURN
  35. 920 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,Z:RETURN
  36.